﻿<!--#include FILE="Admin_Include.asp"-->
<%
Response.Write "<!DOCTYPE html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<title>查看剪贴板</title>" & vbCrlf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=utf-8'>" & vbCrLf
Response.Write "<meta name='viewport' content='width=device-width, initial-scale=1, maximum-scale=1'>" & vbCrLf
Response.Write "<meta name='apple-mobile-web-app-status-bar-style' content='black'>" & vbCrLf
Response.Write "<meta name='apple-mobile-web-app-capable' content='yes'>" & vbCrLf
Response.Write "<meta name='format-detection' content='telephone=no'>" & vbCrLf
Response.Write "<link rel=""stylesheet"" type=""text/css"" href=""../fonts/font-awesome/css/font-awesome.min.css"" />" & vbCrLf
Response.Write "<link href='../Plugins/layui/css/layui.css' rel='stylesheet' type='text/css' />" & vbCrLf
Response.Write "<link rel=""stylesheet"" href=""../Style/global.css"" media=""all"">" & vbCrLf
Response.Write "<link rel=""stylesheet"" href=""../Style/font.css"" media=""all"">" & vbCrLf
Response.Write "<script type='text/javascript'>" & vbCrLf
Response.Write "var pc_file = '" & InstallDir & "';" & vbCrLf
Response.Write "var admin_file = '" & AdminFolder & "/';" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<script type='text/javascript' src='../Js/Admin.js'></script>" & vbCrLf
Response.Write "<script type='text/javascript' src='../../Dialog/main.js'></script>" & vbCrLf
Response.Write "<script type='text/javascript' src='../../Dialog/lhgcore.min.js'></script>" & vbCrLf
Response.Write "<script type='text/javascript' src='../../Dialog/lhgcalendar.min.js'></script>" & vbCrLf
Response.Write "</head>" & vbCrlf
Response.Write "<body>" & vbCrlf
Response.Write "<div class=""admin-main layui-anim layui-anim-upbit"">" & vbCrLf
Response.Write "<table class=""layui-table table-hover"">" & vbCrlf
Response.Write "<tr class=""title"">" & vbCrlf
Response.Write "<td align=""center"">查看剪贴板</td>" & vbCrlf
Response.Write "</tr>" & vbCrlf
Response.Write "<tr>" & vbCrlf
Response.Write "<td align=""center"">" & vbCrlf

dim sArr,sStr
if Action="Clear" Then
Session("bufferdir")=""
Session("bufferfile")=""
end if

if Session("bufferdir")="" and Session("bufferfile")="" Then 
response.write "<script language=javascript>window.opener.refreshit();</script>无数据&nbsp;<button type=""button"" class=""layui-btn"" hidefocus=""true"" accesskey=""c"" onClick=""ownerDialog.close();topWin.parent.main.location.reload();"">关闭[C]</button>"
Response.End()
end if
sArr=split(Session("bufferdir"),"|")
if sArr(0)="cut" Then
response.write "操作方式:剪切"
else
response.write "操作方式:拷贝"
end if
response.write "<br>选中的目录:"
for i=2 to ubound(sArr)
sStr=sArr(1)&sArr(i)
response.write "<br>&nbsp;"&sArr(1)&sArr(i)
next
response.write"<br>选中的文件:"
sArr=split(Session("bufferfile"),"|")
for i=2 to ubound(sArr)
sStr=sArr(1)&sArr(i)
response.write "<br>&nbsp;"&sArr(1)&sArr(i)
next
Response.Write "</td>" & vbCrlf
Response.Write "</tr>" & vbCrlf
Response.Write "<tr>" & vbCrlf
Response.Write "<td align=""center""><button type=""button"" class=""layui-btn"" hidefocus=""true"" accesskey=""s"" onClick=""location.href='" & Request.ServerVariables("SCRIPT_NAME") & "?Action=Clear';"">清空剪贴板[S]</button>&nbsp;<button type=""button"" class=""layui-btn"" hidefocus=""true"" accesskey=""c"" onClick=""ownerDialog.close();topWin.parent.main.location.reload();"">关闭[C]</button></td>" & vbCrlf
Response.Write "</tr>" & vbCrlf
Response.Write "</table>" & vbCrlf
Response.Write "</div>" & vbCrLf
Response.Write "</body>" & vbCrlf
Response.Write "</html>"
%>